augmvert
augmvert(m1,m2)
Func
Local mat,a,b,dim11,dim12,dim2
rowDim(m1)àdim11
rowDim(m2)àdim12
colDim(m1)àdim2
newMat(dim11+dim12,dim2)àmat
For a,1,dim11
      For b,1,dim2
            m1[a,b]àmat[a,b]
      EndFor
EndFor
For a,dim11+1,dim12+dim11
      For b,1,dim2
            m2[a-dim11,b]àmat[a,b]
      EndFor
EndFor
mat
EndFunc